home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / fdical.zip / PRC.PRG < prev    next >
Text File  |  1993-01-04  |  386b  |  13 lines
  1. *  PRC.PRG      Application Procedures
  2.  
  3. * ───────────────────────────────────────────────────────────
  4. PROC events
  5.   DO make_ntx WITH [events],[events1],[DTOS(date)+whom]
  6.   DO make_ntx WITH [events],[events2],[whom+DTOS(date)]
  7.   DO open_file WITH [events],[events1],[events2]
  8. RETURN
  9.  
  10. PROC whom
  11.   DO make_ntx WITH [whom],[whom],[whom]
  12.   DO open_file WITH [whom],[whom]
  13. RETURN